Top 10k strings from Brewery (1983)(CCS).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TAP] /
Back to the directory listing
10
6
5 pubcount=1
4 ;"________________________________";
3 month=month-1
3 materialcount=0
3 capcount=1
3 capcount=0
3 adcontrol=1
3 ;"________________________________"
3 ;" ":
2 yearsale=0
2 weeksale=0
2 pubcount=0
2 month=month+1
2 capmonth>12
2 capmonth=month+3
2 capmonth=month+2
2 capmonth=capmonth-12
2 BREWERY
2 ;weeksale:
2 ;matstock;
2 ;"`";cash;
2 ;"STRIKE AVERTED!!";
2 ;"Press any key to continue...":
2 ;"Press any key to continue..":
2 ;"NEWS FLASH !":
2 ;"Market variability"
2 ;"Difficulty";
2 ;"Available in 2 months time.";
2 ;"Available in 1 months time.";
2 ;" Press any key to continue... ":
2 ;" Option ";option;" accepted!! "
2 )-(advcost*adverts
2 (fixcost*(inc/100
2 (finstock*sellprice/100
2 (advcost*(h/100
2
2
2
1 z$="TOTAL ASSETS ARE NOW":
1 yearsale=yearsale+monthsale
1 year=year+1
1 weeksale=finstock-(monthsale-weeksale):
1 weeksale<0
1 weeksale/(finstock/20
1 vary=(((10
1 t(month)=(monthsale*(sellprice*120
1 supply=((.8
1 supply<bidquant
1 shortcontrol=month+1
1 sellprice=
1 season=2.5
1 pubvalue=pubvalue-(pubs*pubprice)
1 pubvalue=pubvalue+(offer*pubprice)
1 pubvalue=500000
1 pubs>outlets
1 pubprice=25000
1 pubprice=20000
1 puboffer=1
1 prp=prp+.5
1 prp=(weeksale/(finstock/20
1 prev=yearsale:
1 prev=12000
1 plant=plant+575000
1 plant=plant+300000
1 plant=plant+1100000
1 plant=plant+100000
1 plant=100000
1 output>matstock
1 output>capacity
1 outlets=outlets-pubs
1 outlets=outlets+offer:
1 outlets=20
1 offer>puboffer
1 offer*pubprice>cash
1 n=pubvalue:
1 n=pubvalue+plant+(matstock*bidprice)+
1 n=outlets:
1 n=matstock*bidprice:
1 n=capacity:
1 monthsale>finstock
1 monthsale=monthsale+weeksale
1 monthsale=finstock:
1 monthsale=0
1 monthsale;
1 monthsale+weeksale>finstock
1 month=capmonth
1 mint=9999999
1 matstock=matstock-output
1 matstock=matstock+bidquant:
1 matstock=500
1 materialcount=1
1 material count=1
1 ly=ly+monthsale:
1 ly=finstock:
1 lastyear=cash+pubvalue+plant:
1 lastyear=550000
1 l$=" "
1 fixcost=fixcost+(rise*(capacity/20
1 fixcost=fixcost+(offer*(capacity/20
1 fixcost=fixcost+(2500
1 fixcost=fixcost+
1 fixcost=10000
1 finstock>(.1
1 finstock=finstock-monthsale
1 finstock=finstock+output:
1 finstock=500
1 finstock=.1
1 cy=(diff*2
1 control=control+.7
1 cash=cash-fixcost-(adverts*advcost):
1 cash=cash-capcost:
1 cash=cash-500000
1 cash=cash-40000
1 cash=cash-225000
1 cash=cash-120000
1 cash=cash-(offer*pubprice):
1 cash=cash-(bidquant*bidprice)
1 cash=cash-(advcost*
1 cash=cash+(pubs*pubprice)
1 cash=cash+
1 cash=50000
1 cash<pubprice
1 capmonth=capmonth+1
1 capmonth=999
1 capmonth=29
1 capincrease=5000
1 capincrease=3000
1 capincrease=10000
1 capincrease=1000
1 capcost=700000
1 capcost=60000
1 capcost=350000
1 capcost=180000
1 capacity=capacity+capincrease:
1 capacity=1000
1 bidquant=0
1 bidquant<0
1 bidprice=45
1 bidprice<0
1 aterialcoun
1 already charged.
1 adverts=adverts+
1 adverts=adverts*(.85
1 advcost=1000
1 adcontrol=2
1 adcontrol=.5
1 TOTALCOST=(advcost*adverts)+(bidprice*output)+fixcost
1 TOTAL COST TO BE DEBITED :";
1 PRODUCTION
1 ONE MONTH'S
1 CAPACITY NOW
1 Bank balance now `
1 =Select "
1 <offer/rise
1 ;weeksale;
1 ;output*bidprice
1 ;monthsale:
1 ;monthsale
1 ;matstock;" barrels.";
1 ;lx;" barrels have gone off";
1 ;finstock;
1 ;capacity;
1 ;("Electricity"
1 ;"of `";offer*pubprice
1 ;"in 2 months time.";
1 ;"grateful.":
1 ;"bought ";offer;" pubs, at a total cost";
1 ;"barrels."
1 ;"and must be poured away!":
1 ;"and have no more pubs to realise";
1 ;"and says ";
1 ;"`";fixcost+
1 ;"`";cash+plant+pubvalue:
1 ;"`";bidquant*bidprice
1 ;"_______________________________"
1 ;"Your offer has been rejected : you must renegotiate.":
1 ;"Your marketing department forecast a reduction in advertising effectiveness of ";("50%"
1 ;"Your advertising department reports that advertising costs have just increased by ";h;"% to `";
1 ;"You've made ";("another"
1 ;"You only have ";outlets;" pubs!":
1 ;"You have bought raw materials for ";bidquant;" barrels at a unit cost"'"of `";bidprice;" per barrel"
1 ;"You have = ";outlets;" pubs.";
1 ;"You can only avoid bankruptcy byselling some tied pubs!":
1 ;"You are overdrawn by `";cash;
1 ;"Yearend.":
1 ;"Year ending 31st Dec. ";year;
1 ;"YOU MUST WAIT UNTIL YOUR CURRENT EXPANSION IS COMPLETED!!":
1 ;"YOU HAVE FAILED!!";
1 ;"YOU DO NOT HAVE ENOUGH MONEY TO EVEN BUY ONE PUB!!":
1 ;"YOU DO NOT HAVE ENOUGH MATERIALS";
1 ;"YOU ARE OVERDRAWN!!";
1 ;"Y.T.D. TURNOVER";
1 ;"Week ";n:
1 ;"WELLDONE":
1 ;"WEATHER REPORT";
1 ;"USER DEFINED MARKET.";
1 ;"Turnover this month = `";
1 ;"Tied pubs":
1 ;"This will increase fixed costs by `";rise*(capacity/20
1 ;"This is Ron..your Shop Steward.";
1 ;"There has been a ";(" newspaper "
1 ;"There are no pubs for sale..... WAIT UNTIL NEXT MONTH!! ":
1 ;"There are ";puboffer;" pubs currently on the market, at a cost of `";pubprice;" each."
1 ;"The sun is out, the weather is beautiful, and the forecast for the month ahead is ";"
1 ;"The Official Receiver has been called in and you have been det-ained at H.M. pleasure, pending his report.";
1 ;"TOTAL COST."
1 ;"TOTAL COST `575,000.";
1 ;"TOTAL COST `100,000.";
1 ;"TOTAL COST = `300000.";
1 ;"TOTAL COST = `1.1m.";
1 ;"Stock for";
1 ;"Sorry...no pubs on the market at present time...Try again next month.";
1 ;"Sorry-only one buy per month!!!":
1 ;"Sell price per barrel=`";(sellprice*120
1 ;"STRIKE THREAT !!";
1 ;"STOCK.";
1 ;"STAND BY FOR";
1 ;"SALES.";
1 ;"SALES RECORD : ";year
1 ;"SALES (Units)":
1 ;"Ron is ";
1 ;"Ron agrees ";
1 ;"Returning to menu..":
1 ;"Returning to MENU.":
1 ;"Raw materials";
1 ;"Raw materials :";
1 ;"RETURNING TO MENU":
1 ;"RETURNING TO MENU!!":
1 ;"RAW MATERIALS";
1 ;"Pub leaseholds";
1 ;"Programme saved. Do you wish to continue playing? (y/n).":
1 ;"Profit margin = ";
1 ;"Production"'"capacity :";
1 ;"Production plant";
1 ;"Production capacity only ";capacity:
1 ;"Price (pt) : ";sellprice;"p.";
1 ;"Press any key to return to MENU":
1 ;"Press any key to continue......"
1 ;"Press any key to continue"
1 ;"Press a key to start pouring.":
1 ;"Press a key to continue.(
1 ;"Please tell your friends about it, and keep an eye out for my forthcoming releases.'":
1 ;"Pay `500,000 now..`700,000 in two months time.";
1 ;"Pay `40,000 now..`60,000 next month.";
1 ;"Pay `225,000 now..`350,000 next month.";
1 ;"Pay `120,000 now..`180,000";
1 ;"PUBLISHED BY ";
1 ;"P. Boulton says 'I hope you haveenjoyed this game.";
1 ;"Offer accepted.";
1 ;"OUT OF STOCK!!":
1 ;"OPTION 4.";
1 ;"OPTION 3.";
1 ;"OPTION 2.";
1 ;"OPTION 1.";
1 ;"O.K. You have successfully ";
1 ;"Now...":
1 ;"New bank balance = `";cash
1 ;"NEWS FLASH !";
1 ;"Month Units Adverts";
1 ;"Materials stock : ";matstock;" barrels"
1 ;"Market Plan":
1 ;"Market variability":
1 ;"MONTHLY SALES SUMMARY : Month ";month;
1 ;"MONTHLY SALES REPORT.":
1 ;"MONTHLY SALES REPORT":
1 ;"Increase capacity by 5000.";
1 ;"Increase capacity by 3000.";
1 ;"Increase capacity by 10000.";
1 ;"Increase capacity by 1000.";
1 ;"INSUFFICIENT FUNDS!!!!!!!!!!!!!":
1 ;"INCREASE NUMBER OF TIED PUBS.";
1 ;"How many pubs will you sell?"
1 ;"Good job this is only a game!":
1 ;"Fixed costs increase by ";inc;"% to";
1 ;"Finished stock";
1 ;"Finished stock level too high!";
1 ;"Finished stock : ";finstock;" barrels";
1 ;"Enter number of houses required."''
1 ;"Enter number of adverts. ";
1 ;"Enter monthly production : ('1' returns to menu.) "''
1 ;"Enter Brewery name. "''
1 ;"Enter Beer strength. 4 = very strong, 1 = very weak. "'
1 ;"Enter Beer name. "''
1 ;"Do you wish to increase expendi-ture on other advertising media? (y/n)"''
1 ;"Do you wish to change? (y/n)"''
1 ;"Do you wish to change price? (y/n) ";
1 ;"Difficulty"
1 ;"Cash at bank"
1 ;"Capacity":
1 ;"COPYRIGHT WARNING"
1 ;"Brrr! Heavy snowfalls forecast for the whole country this month"
1 ;"Barrels sold this month = ";
1 ;"Bank balance = `";cash:
1 ;"Bank balance = `";cash
1 ;"Bank balance :"," `";cash;
1 ;"Bank balance : `";cash
1 ;"BREWERY";
1 ;"BANK BALANCE `";cash;
1 ;"Annual sales growth":
1 ;"Annual capital growth":
1 ;"Adverts : ";adverts
1 ;"A rival brewery is willing to buy your pubs at a price of `";pubprice;" each.";
1 ;"=============================";
1 ;"====================";
1 ;"==============":
1 ;"============";
1 ;"6. Save game."
1 ;"5. Increase number of tied pubs.";
1 ;"4. Increase production capacity.";
1 ;"3. Monthly sales planning.";
1 ;"3. Materials at current";
1 ;"3. Beer strength-";s$
1 ;"2. Purchase raw materials.";
1 ;"2. Beer name -";b$(2
1 ;"2. Adverts at `";advcost;"."
1 ;"1. Redefine market condition.";
1 ;"1. Fixed costs.";
1 ;"1. Brewery name -";b$(1
1 ;"(Fixed costs will increase by `7500 per month.)"
1 ;"(Fixed costs will increase by `25000 per month.)"
1 ;"(Fixed costs will increase by `12000 per month.)"
1 ;"'Thanks!' ";
1 ;" barrels"
1 ;" barrels ";
1 ;" barrels "
1 ;" What a waste of good beer!!!!!!"
1 ;" TOTAL ASSETS "
1 ;" Price ";
1 ;" Press key to receive accounts. ":
1 ;" Part 1 saved ";
1 ;" Month : ";
1 ;" MARKET PLAN : ";
1 ;" MANAGEMENT STATISTICS "
1 ;" IN STOCK!!":
1 ;" He is asking for a pay-rise of `";rise;" per month."
1 ;" FIXED ASSETS ";
1 ;" DO YOU ACCEPT RON'S PAY CLAIM? (Enter y/n) ";
1 ;" CURRENT ASSETS ";
1 ;" ANNUAL FINANCIAL STATEMENT ";
1 ;" Press any key to continue...":
1 ;" Please enter your bid price per barrel."'''''
1 ;" Your supplier has sufficient stock for most needs. Please tell him how much you need (in barrels production). '0' returns to MENU."'''
1 ;" Press any key to continue..":
1 ;" Press any key to continue.."
1 ;" Press any key to NEW...":
1 ;" WEATHER REPORT ";
1 ;" ============== "
1 ;" "
1 ;" ";
1 ;" ";
1 ;" ":
1 3333*(sellprice>135
1 /(maxt-mint))
1 -(output*bidprice
1 -(lx/ly*82
1 -(diff)/10
1 -(TOTALCOST
1 -((lx/ly)*9
1 ,,,,"CASES COMPUTER SIMULATIONS LTD ":
1 +((t(n)-mint)*21
1 +(((finstock-monthsale)/(finstock/20
1 *sellprice*.01
1 *season)+(333
1 *season)+(250
1 *outlets)+(70
1 *bidprice)+(333
1 *adverts*adcontrol)+(250
1 *(sellprice>186
1 *(sellprice
1 *(option=2
1 *(option=1
1 *(((monthsale*(sellprice*120
1 )=sellprice
1 )=monthsale
1 )=adverts:
1 );fixcost;
1 );advcost*adverts:
1 );TOTALCOST
1 );" prices increased."
1 );" per month."
1 );" million!":
1 )-fixcost-(monthsale*bidprice)-(adverts*advcost))/(monthsale*(sellprice*120
1 )-(output*bidprice
1 )-(fixcost
1 )-(TOTALCOST
1 )+advcost):
1 )+(cash/35000
1 )+("Water"
1 )+(" television "
1 )+(" one "
1 )+(" local radio "
1 ))-(weeksale/(finstock/20
1 ))+advcost;" each.":
1 ))*(-13933
1 ))*((-(control*45
1 )'"strike."
1 (weeksale/(finstock/20
1 (t(n)/1000
1 (monthsale*(sellprice*120
1 (cash+plant+pubvalue)/1000000
1 (Fixed costs will increase by `2500 per month.)"
1 ((monthsale*sellprice*120
1 (((yearsale-prev)/prev)*100
1 (((cash+pubvalue +plant-lastyear)/lastyear)*100
1 "will rigorously protect the copy":
1 "strictly prohibited."
1 "and lending of this software is":
1 "Unauthorised copying, hiring,":
1 "To proceed, enter option. ('0' returns to menu.) ";
1 "To proceed, enter option. ('0' returns to menu) ";
1 "Select option ";
1 "Enter additional number of adverts required."''
1 "ENTER PRICE PER PINT (1 barrel=120 pints) ";
1 "Do you wish to proceed with the purchase of any of these houses? "''
1 ";capacity;"
1 "-right, of BREWERY. Please note":
1 " OK.HOW MUCH WILL YOU PAY? ";
1 P. S. BOULTON.
1 BREWERY ";:
1 1983 P.Boulton "
1 1983 : P. S. Boulton.":
1 : ";
1
1